﻿Imports System.Windows.Forms
Imports GTA
Imports GTA.Math

Public Class JetHelper
    Inherits Script
    Public ReadOnly HelperEnable As Toggle = New Toggle(False) With {.OnEnable = AddressOf Enable, .OnDisable = AddressOf Disable}
    Private Sub JetHelper_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If PlayerPed.IsInFlyingVehicle Then
            If e.KeyCode = Keys.CapsLock Then
                HelperEnable.Enabled = Not HelperEnable.Enabled
            End If
        End If
    End Sub
    Public Sub Enable()
        UI.Screen.StartEffect(UI.ScreenEffect.DrugsMichaelAliensFight,, True)
        Game.TimeScale = 0.33
    End Sub
    Public Sub Disable()
        UI.Screen.StopEffects()
        Game.TimeScale = 1
    End Sub
End Class
